home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Complete Applications / 4D Programming / External Procedures / DateFolder / DateDocs < prev    next >
Encoding:
Text File  |  1987-10-06  |  1.0 KB  |  29 lines  |  [TEXT/ttxt]
  1. DateChange External
  2.  
  3.  
  4. DateChange takes either a date string and converts it to the number of days since 1/02/0000 or takes the number of days since 1/02/0000 and returns the corresponding date string.
  5.  
  6. DateChange requires two parameters.  String; LongInt.  Respectively.
  7.  
  8. Call with the format  DateChange(var1;var2)  where var1 is a String and var2 is an Integer.
  9.  
  10. Date string needs to be in the format  "MM/DD/YYYY"
  11.  
  12. If LongInt=0 then the date will be converted to a number and returned in LongInt.
  13.  
  14. If longint<>0 then the Longint will be converted to a date and returned in string.
  15.  
  16.  
  17. Notes:
  18.  
  19. Every four years is a leap year, ALWAYS.  I don't cancel leap years on centuries where the century/100 and then divided by 4 <> 0 (as per the 'rule')
  20.  
  21. I don't check for the date in 1742 (?) when 10 days were skipped because of changes made by the Gregorian calendar change.
  22.  
  23. Use the 4D External Mover to copy DateChange from Date.EXT into either a Proc.ext file or into the .res file of your application.
  24.  
  25. This application was written and compiled with TurboPascal.
  26.  
  27.  
  28. Todd.
  29. ACIUS.